'VBScript正则表达式
Dim reg As Object
Set reg = CreateObject("vbscript.RegExp")